Include "Tilesets.bmx"


Global Maplist : TList = New TList


Type Map Extends Asset

	Field Tileset : Tileset
	Field Walls : Wall[]
	Field Tiles : Int[]
	Field Map_W : Int
	Field Map_H : Int
	Field LR : Int = 255
	Field LG : Int = 255
	Field LB : Int = 255
	
	Method New()
	
		ListAddLast(Maplist,Self)
	
	End Method


	Method Setup(Name : String, width : Int, height : Int,tset : Tileset)	

		Local wal : Wall[width*height]
		Local til : Int[width*height]
		Walls = wal
		Tiles = til
		Tileset = tset
		'ShortName = Name
		'FileName = imgfile
		

	End Method

End Type

Type Wall

	Field x : Int
	Field y : Int
	Field w : Int
	Field h : Int
	Field Block : Byte
	

End Type